A Curso-R

É uma empresa que oferece vários cursos de ciência de dados em R. Os cursos são online, mas são síncronos, e isso faz bastante diferença para interação entre os colegas e com o professor! E olha só, minha idola Beatriz Milz trabalha lá também!

Até agora eu fiz 3 cursos lá, Visualização de Dados, Introdução ao Machine Learning, E Relatórios e Apresentações eutomatizadas. Todos excelentes. Esse post é sobre o de Visualização de Dados.

Eles também tem livros que são excelentes, que eu acho que é o melhor material em Português que temos de R até o momento!

O Curso de Visualização de Dados

Eu sabia que o ggplot era incrível, mas não sabia que tanto!

O material desse curso está disponível aqui. Bom, eu imagino que se eles colocaram em um repositório público, eu posso divulgá-lo.

O curso foi excelente! Além de aprender muito na prática, conheci muitas novas referências que uso e recomendo sempre! Como:

E olha que legal! Eu ganhei o premio de melhor trabalho da turma e pude fazer um curso de graça (daí fiz o Introdução ao Machine Learning). Talvez eu fale dele em outro post…

Meu trabalho está disponível aqui.

Spoiler alert: tem coisas de Harry Potter

if(!require(pacman)) install.packages("pacman")
pacman::p_load(tidyverse,ggraph,igraph,RColorBrewer, geomtextpath, gganimate)

pacman::p_load_gh("AllanCameron/geomtextpath", "coolbutuseless/ggpattern")


nyt_titles <- readr::read_tsv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2022/2022-05-10/nyt_titles.tsv") 

hp <- nyt_titles %>% 
  filter(str_detect(author, "owling")&str_detect(title, "HARRY" )) %>% 
  mutate(livro=id,
         semanas=total_weeks)

if (require("magick")) {

flags <- str_c("hp/", list.files(path="./hp", pattern=".png$"))


p <- ggplot(hp, aes(x=livro, y=semanas)) +
  geom_bar_pattern(stat="identity",
    aes(
      pattern_filename = livro), 
    pattern         = 'image',
    pattern_type    = 'tile',
    fill            = 'white', 
    colour          = 'black',
    pattern_scale   = -1
  ) +
  theme_bw(18) +
  # labs(
  #   title = "ggpattern::geom_bar_pattern()",
  #   subtitle = "pattern = 'image'"
  # ) + 
  theme(legend.position = 'none') +
  scale_pattern_filename_continuous(choices = flags) +
  coord_fixed(ratio = 1/20) +
  scale_x_discrete("Livro")+
   scale_y_continuous("Total de Semanas no Ranking")


p

}